TEST.PUB[PUB,TES] - www.SailDart.org

perm filename TEST.PUB[PUB,TES] blob sn#233539 filedate 1976-08-21 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device tty
C00004 ENDMK
C⊗;
.device tty
.AT "⊗<" TEXT ">" ⊂TEXT⊃
⊗<FOO
.
.variable txt, token, space;
.if bletch then;
.if bletch then;
.
.space←'40;
.
.macro under(stuff)⊂
.    <<turn on "∪";>> txt ← "stuff";
.    repeat⊂
.	if txt=null then done else token ← scan(txt, space, null, "ia");
.	if token=space then token else ("∪"&token); ⊃
.    turn off; ⊃
.
.under "Good grief, Charly    Brown!"